home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 October
/
Ahoy_Magazine_88-10_1988_Double_L.d64
/
Time Clock 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
328b
|
10 lines
0 print"[147]":poke53280,6:poke53281,0
1 rem ==================================
2 rem commodares problem #52-2 :
3 rem time clock
4 rem solution by
5 rem jim borden
6 rem ==================================
10 input "minutes pay";mn: hr=int(mn/15+.5)/4: m=(hr-int(hr))*4
20 print"payroll time = "int(hr);m"[157]/4 hours.": if mn>0 goto 10